home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / brklyprl.lha / Emulator / Tests / Passed / test7.pl < prev    next >
Encoding:
Text File  |  1989-04-14  |  235 b   |  13 lines
  1.  
  2. /* Copyright (C) 1988, 1989 Herve' Touati, Aquarius Project, UC Berkeley */
  3.  
  4. /* this is for testing switching */
  5.  
  6. main :- a(','(1,2),X), write(X), nl.
  7.  
  8. a(',,'(1,2), no).
  9. a(b(1,2), no).
  10. a(','(1,2), ok).
  11. a('.'(1,2), no).
  12. a(z(1,2), no).
  13.